﻿Imports System.Drawing

<Serializable()> Public Class Producto
    Public Property NombreProducto As String
    Public Property PrecioProducto As Decimal
    Public Property DescripcionProducto As String
    Public Property ImagenProducto As Image

    Public Sub New(ByVal nombre As String, ByVal precio As Decimal, ByVal descripcion As String, ByVal foto As Image)
        _NombreProducto = nombre
        _PrecioProducto = precio
        _DescripcionProducto = descripcion
        _ImagenProducto = foto
    End Sub

    Public Function ComprobarProducto(ByVal nombre As String, ByVal precio As String, ByVal descripcion As String) As String

        If nombre = "" Then
            Return "Falta por introducir el nombre del producto"
        End If

        If nombre.Length < 2 Then
            Return "El nombre es demasiado corto"
        End If

        If precio = "" Then
            Return "Falta por introducir el precio del producto"
        End If

        If Not IsNumeric(precio) Then
            Return "El precio tiene que ser un dato numérico."
        End If

        If Decimal.Parse(precio) <= 0 Then
            Return "El precio tiene que ser positivo."
        End If

        If descripcion = "" Then
            Return "Falta por introducir la descripción del producto"
        End If

        If descripcion.Length < 2 Then
            Return "El nombre es demasiado corto"
        End If

        Return "OK"

    End Function
End Class
